%--------------------------------------------------------------------------
% Initial values
%--------------------------------------------------------------------------

initval;

ALPHA_0   = ALPHA_0_SS;
A         = A_SS;
G         = G_SS;
K         = K_SS;
Z         = Z_SS;
q_money   = q_money_SS;
q_capital = q_capital_SS;
q_profit  = q_profit_SS;
q_liq     = q_liq_SS;
surplus_net   = surplus_SS;

B         = B_SS;
w         = W_SS;
INV       = DELTA * K;
K_bar     = K_BAR_SS;
c_star    = C_STAR_SS;
Y         = Y_SS;
H         = (Y / A / K_bar^(1 - ETA))^(1 / ETA);
L         = L_SS;
E_a       = E_a_SS;
E_p       = E_p_SS;

R_ratio   = (E_a_SS + E_p_SS) / (E_a_SS + E_p_SS + INV);
P_share   = E_p_SS / (E_a_SS + E_p_SS);


Chi_q       = CHI_q;
Mu          = MU;
pi          = MU;
r    	    = 1 / BETA - 1;
iota        = (1 + r) * (1 + pi) - 1;
Productivity = Y / (A^(1 - ETA) * K^(1 - ETA) * H^ETA);
TFP         = Productivity * A^(1 - ETA);
DM_price    = DM_price_SS;
prod_disp   = prod_disp_SS;

IM = average_log_normal(surplus_net, c_mu, c_sig);

end;